Pascaldan anlayan biri baksın lütfen

Merhabalar.Şimdi yarınki sınava hazırlanmam gerekiyor.Ama aklımda 2-3 soru var.

1-) Girilen bir mesajı "copy" komutu kullanmadan nasıl ters çevirebilirim.Yani:

var
i,a:integer
x:string
begin
readln(x);
a:=lenght(x);
for i:=a down to 1 do
write(copy(x,a,1);
readln;
end.

Bu programı copy kullanmadan nasıl yazarım.Bilgisi olan varmı?

2-) Klavyeden girilen küçük harflerden oluşan cümleyi büyük harfe çeviren program ? (Bununla ilgili yarım yamalak bilgim var.ASCII ekliyeceğiz vs. biliyorum ama tam anlamıyla yapamadım)

Bu iki sorunun çok acil bugün tamamlanması gerekiyor.Zaten pascal bilen biri için basit şeyler heralde.Şimdiden teşekkürler.

var
s : string;
i : Integer;
begin
Write('Bir Karakter Dizisi Giriniz: ');
ReadLn(s);
for i := 1 to Length(s) do
s[i] := UpCase(s[i]);
WriteLn('KARAKTER DİZİSİ BUYUK HARFE DÖNÜŞTÜ ',s);
Readln;
end.

Girdiğin karakterli büyük harfe çevirir bu işini görür mü

teşekkürler işime yarar.ama 1. soru çok daha önemli onu yapabilecek biri varmı

Ters yazmak için bunu bir dene bakalım

uses crt;
var
a:string;
b:byte;
begin
clrscr;
write('Mesajı giriniz');readln(a);
for b:=1 to length(a) do
begin
gotoxy(40-b,1);
write(copy(a,b,1));
end;
readln;
end.

copy komutu kullanmadan nasıl yapabilirim demiştim

daha o konulara gelmedik, gelseydik yardımcı olurdum

Pardon

Bi Pascal Nouma'yı Bİliom olurmu

turbo pascal pardon ,tombalacı pascal