Pascal/Turbo Pascal - Array de string

program p0004a5;  // Pide nombres  hasta q introduzca fin. Y dice si alguno es Pedro

uses crt;

const  h = 200;

var    n: array[1..h] of string;

       i: integer;

 Begin

 clrscr;

           Writeln (' Ingrese nombres, para salir: fin');

          Readln (n[i]);

           While (n[i] <> 'fin') do

           Writeln (i,' ',n[i]);

          For i:= 1 to h do

          begin

          If (n[i] = ' Pedro ') then

          Writeln (' Uno de sus amigos se llama Pedro ')

          else

          Writeln (' Ninguno de sus amigos se llama Pedro ');

         end;

         Readkey;

 End.

uses crt;

const

    max = 100;

var

    nombres:array[1..max] of string;

    i,x:byte;

begin

    clrscr;

    i:=1;

    repeat

        write('Ingrese nombre (terminar = fin): ');

        readln(nombres[i]);

        if nombres[i] <> 'fin' then

           inc(i);

    until nombres[i] = 'fin';

    for x:=1 to i do begin

        if nombres[x] = 'Pedro' then begin

            writeln('Uno de sus amigos se llama Pedro');

            break;

        end

        else begin

            writeln('Ninguno de sus amigos se llama Pedro');

            break;

        end;

    end;

    readkey;

end.