www.ispwsznysa.fora.pl

Siwy

program prog5;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
d:array[1..10] of char;
i,j:byte;
a,o:char;
begin
randomize;
repeat
writeln ('Wprowadz 10 znakow, potwierdzajac kazdy klawiszem ENTER');
for i:=1 to 10 do
begin
readln (a);
d[i]:=a;
end;
writeln;
for j:=1 to 10 do
write (d[j]:3);
writeln;
writeln;
writeln ('Zakonczyc program [Z] czy powtorzyc [P]?');
readln (o);
while (upcase (o)<>'Z') and (upcase (o)<>'P') do
begin
writeln ('Wcisnij "Z" by zakonczyc lub "P" by powtorzyc');
readln (o);
end;
until upcase (o)='Z';
end.