Pomoc s tymito prikladmi

program abecedne;
uses CRT;
var veta1,veta2:string;
    kratsia:string;
    I:integer;
begin
clrscr;
write('Napis prvy retazec: ');
readln(veta1);
write('Napis druhy retazec: ');
readln(veta2);
if length(veta1)>length(veta2) then kratsia:=veta1 else kratsia:=veta2;
if veta1=veta2 then write ('Rovnake vety') else begin
for I:=1 to length(kratsia) do begin
 if ord(veta1[I])>ord(veta2[I]) then begin
  clrscr;
  write('Druhy je skor');
  break;
  end;
 if ord(veta2[I])>ord(veta1[I]) then begin
  clrscr;
  write('Prvy je skor');
  break;
  end;
end;
end;
repeat until keypressed;
end.

program medzery;
uses CRT;
var veta:string;
begin
clrscr;
writeln('Zadaj vetu: ');
read(veta);
while pos('  ',veta)>0 do delete (veta,pos('  ',veta),1);
if veta[length(veta)]=' ' then delete(veta,length(veta),1);
if veta[1]=' ' then delete(veta,1,1);
writeln('');
write(veta);
repeat until keypressed;
end.

program znamenie;
uses CRT;
var den, mesiac:integer;
begin
clrscr;
write ('Zadaj den narodenia: ');
readln(den);
write('Zdaj mesiac narodenia: ');
readln(mesiac);
case mesiac of
1: if den>=21 then write('Si vodnar!') else write('Si kozorozec!');
2: if den>=20 then write('Si ryba!')  else write('Si vodnar!');
3: if den>=21 then write('Si baran!')  else write('Si ryba!');
4: if den>=21 then write('Si byk!')  else write('Si baran!');
5: if den>=21 then write('Si blizenec!')  else write('Si byk!');
6: if den>=22 then write('Si rak!')  else write('Si blizenec!');
7: if den>=23 then write('Si lev!')  else write('Si rak!');
8: if den>=24 then write('Si panna!')  else write('Si lev!');
9: if den>=24 then write('Si vahy!')  else write('Si panna!');
10: if den>=24 then write('Si skorpion!')  else write('Si vahy!');
11: if den>=23 then write('Si strelec!')  else write('Si skorpion!');
12: if den>=22 then write('Si kozorozec!')  else write('Si strelec!');
end;
repeat until keypressed;
end.

program znamenie;
uses CRT;
var den, mesiac:integer;
begin
clrscr;
write ('Zadaj den narodenia: ');
readln(den);
write('Zdaj mesiac narodenia: ');
readln(mesiac);
if mesiac=1 then if den>=21 then write('Si vodnar!') else write('Si kozorozec!');
if mesiac=2 then if den>=20 then write('Si ryba!')  else write('Si vodnar!');
if mesiac=3 then if den>=21 then write('Si baran!')  else write('Si ryba!');
if mesiac=4 then if den>=21 then write('Si byk!')  else write('Si baran!');
if mesiac=5 then if den>=21 then write('Si blizenec!')  else write('Si byk!');
if mesiac=6 then if den>=22 then write('Si rak!')  else write('Si blizenec!');
if mesiac=7 then if den>=23 then write('Si lev!')  else write('Si rak!');
if mesiac=8 then if den>=24 then write('Si panna!')  else write('Si lev!');
if mesiac=9 then if den>=24 then write('Si vahy!')  else write('Si panna!');
if mesiac=10 then if den>=24 then write('Si skorpion!')  else write('Si vahy!');
if mesiac=11 then if den>=23 then write('Si strelec!')  else write('Si skorpion!');
if mesiac=12 then if den>=22 then write('Si kozorozec!')  else write('Si strelec!');
repeat until keypressed;
end.

Program Ivan11114;
Uses CRT;
Var A,L,I,h,n:integer;
begin
clrscr;
write('zadaj pocet hviezdiciek');
readln(h);
A:=h;
repeat
For I:=1 to L do begin
write ('*');
h:=h-1;
If L=(h+L) then break;
end;
L:=L+1;
writeln;
Until h<=0 ;
end.

program hviezdy;
uses crt;
var I,J,N:integer;
begin
clrscr;
write ('Zdaj N: ');
readln(N);
for I:=1 to N do begin
 for J:=1 to I do write('*');
 writeln;
 end;
repeat until keypressed;
end.