Ввести текст произвольной длины и распечатать его в обратном порядке

readln(s);
for i:=length(s) downto 1 do
write(s[i]);

readln(s);
k:=0;
for i:=1 to length(s)-2 do
if copy(s,i,3)='еле' then k:=k+1;

var n,i,r,max,min:integer;
.......................
max:=0;
min:=1000;
for i:=1 to n do
 begin
  write('Рост ',i,'=');
  readln(r);
  if r<min then min:=r;
  if r>max then max:=r;
 end;
write('Разница между самым высоким и самым низким=',max-min);

Var a:string; i:shortint;
begin
Writeln('Ââåäèòå ñòðîêó');
readln(a);
for i:=length(a) downto 1 do
Write(a[i]);
readln;
end.

Var a,b:string; i,k,n:shortint;
begin
k:=0;
b:='еле';
Writeln('Введите строку');
readln(a);
for i:=1 to length(a) do
begin
n:=pos(b,a);
if n>0
then begin
inc(k);
delete(a,n,3);
end
else break;
end;
Writeln('Вхождений ',k);
readln;
end.

Var a:array[1..10] of integer; i:shortint; n,min,max:integer;
begin
for i:=1 to 10 do
begin
Writeln('Ðîñò ',i,' ó÷åíèêà');
readln(a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to 10 do
begin
if a[i]>max
then max:=a[i];
if a[i]<min
then min:=a[i];
end;
Writeln('Ðàçíèöà = ',(max-min));
readln;
end.