Как отладить программы на паскале?

[Сандра]

друзья! посмотрите пожалуйста проги и подскажите если не сложно как их отладить. Задание такое
1.Дан текстовый файл, каждая строка которого является предложением В каждом предложении указать слово, в котором доля гласных максимальна.

Uses CRT;
const gls=['q','w','r','t','p','s','d','f','g','h','j','k','l','z','x','c','v','b','n','m'];
sogls=['e','u','i','o','a'];
var f:text;
    S:string;
    W:String;
    i,ml,q,k:integer;

Function Proverka(str:String):Boolean;
Var rezult : Boolean;
i,n,m,j:byte;
Begin

    for i:=1 to length(str) do
    for j:=1 to length(str) do begin
     m:=0;
     n:=0;

     if str[i] in gls then m:=m+1;
     if str[j] in sogls then n:=n+1;
     if n>=m then rezult:=true
     else rezult:=false;
     Proverka:=rezult;   end;
     {If (pos(str[1],copy(str,2,Length(str)-1)) > 0)
        Then Result := True
        Else Result := False;
        DoubleFirstChar := Result; }
End;

begin
     ClrScr;
     assign (f,'C:\word.txt');
     reset(f);
     while not(eof(f)) do
     begin
          readln(f,S);

                    While pos(' ',S) <> 0 Do

          Begin
               If (S[1] <> ' ')
               Then
                  Begin
                      W := copy(S,1,pos(' ',S)-1);
                       S := copy(S,pos(' ',S),Length(S)-Length(W));
                       If Proverka(W) Then  Write(W,' ')

                  End
             else  S := copy(S,2,Length(S)-1);

          End;
          W := S;
          If Proverka(W) Then Write(W,' ');
     end;
     close (f);
     WriteLn;
     ReadLn;
end.

и ещё одна
2.Упорядочить сведения о багаже, записанные в файле багаж (см. предыдущую задачу) по возрастанию веса багажа. Предполагается, что число пассажиров, зарегистрировавших багаж, известно заранее и равно n (некоторая константа), при этом n не слишком велико.
Указание: Перенести сведения о багаже из файла багаж в массив Б1,…,Бn, затем упорядочить этот массив, используя то, что для переменных x, y одного и того же комбинированного типа можно использовать оператор присваивания x:=y. После этого переписать элементы массива Б1,…,Бn в файл багаж.

Program Z2;
type bagaz=record
kol:byte;
ves:real;
end;
var
f: file of bagaz;
f1:text;
bp,a,b:bagaz;
c,m,y:array [1..100] of bagaz;
n,i,j:byte;
Begin
Assign(f,'C:\bagaz.dat');
writeln('Zadaite kol-vo passagirov:');
readln(n);
rewrite(f);
for i:=1 to n do
begin
writeln('Passagir n',i);
write('Kol-vo vechei:');
readln(bp.kol);
write('obchii ves:');
readln(bp.ves);
write(f,bp);
writeln;
end;
close(f);
assign(f,'C:\bagaz.dat');
assign(f1,'C:\Test.txt');
reset(f);
rewrite(f1);
n:=0;
while not eof(f) and (n<100) do begin
inc(n);
read(f,c[n]);
end;
m:=c[n];
for i:=1to n-1 do
for j:=i+1 to n do
if m[i]>m[j] then
begin
y:=m[j];
m[j]:=m[i];
m[i]:=y; end
write(f1,m[i],'');
end;
end;
close(f);
close(f1);
readln;
end.

Подскажите пожалуйста.
Замечание модератора: Используйте тег [CODE]