Написать и отладить программу с применением операторов циклов

program samolet;
uses crt;
var y,x,z,v,c,b,i,k:integer;
    n:char; a:string;
    label m1;
begin
clrscr;
textbackground(11);
clrscr;
 
window(5,6,26,9);
textbackground(7); clrscr;
window(4,5,25,8);
textbackground(2); clrscr;
textcolor(14);
writeln('   Автор программы');
textcolor(12);
writeln('  Асемгуль');
writeln;
 
window(5,16,50,20);
textbackground(7); clrscr;
window(4,15,49,19);
textbackground(5); clrscr;
textcolor(1);
writeln('По вопросам данной программы');
textcolor(0);
writeln('Обращаться по телефону:8(7182)123456');
writeln;
 
window(5,25,65,40);
textbackground(7); clrscr;
window(4,24,64,39);
textbackground(4); clrscr;
textcolor(1);
writeln('Добро пожаловать в программу для определения веса почтового багажа');
writeln('Для ввода данных нажмите ENTER)');
readkey;
clrscr;
m1:
writeln(' Введите F для использования FOR...TO..DO');
writeln('Введите W для использования WHILE...DO');
writeln('Введите R здля использования REPEAT...UNTIL');
readln(n);
case n of
  'F':
  begin
    for i:=1 to 1000 do
    begin
    Writeln('Введите количество пассажиров');
 readln(y);
 Writeln('Введите вес багажа');
 readln(x);
 v:=30000;
 c:=y*100;
 b:=x*10;
 z:=v-(c+b);
 Writeln('‘Свободно для почтового багажа= ',z);
    writeln('Хотите изменить способ? 1-da, 2-net');
 readln(k);
 if k=1 then goto m1
 else
end;
   end;
  'W':
  begin
    while i<=1000 do
    begin
    Writeln('Введите количество пассажиров');
 readln(y);
 Writeln('Введите вес багажа');
 readln(x);
 c:=y*100;
 b:=x*10;
 v:=30000;
 z:=v-(c+b);
 Writeln('Свободно для почтового багажа=',z);
    i:=i+1;
    writeln('Hotite pom spos? 1-da, 2-net');
 readln(k);
 if k=1 then goto m1
 else
end;
    end;
  'R':
  begin
  if k=1 then goto m1
  else
    repeat
    Writeln('Введите количество пассажиров');
 readln(y);
 writeln('Введите вес багажа');
 readln(x);
 c:=y*100;
 b:=x*10;
 v:=30000;
 z:=v-(c+b);
   Writeln('Свободно для почтового багажа=',z);
    i:=i+1;
    until i>1000;
    writeln('Hotite pom spos? 1-da, 2-net');
 readln(k);
 {if k=1 then goto m1
 else}
end;
end;
  end.