Ввести 2 длинные строки.
программа<файл:
строка1
строка2
Ну я и пишу
{X+}
var a,b:PChar;
an,bn:integer;
c:char;
flag:boolean;
begin
{Intro}
flag:=True;
an:=0;
while flag do
begin
read(c);
If ord(c)=13 then
flag:=false
else a[an]:=c;
inc(an);
end;
flag:=True;
bn:=1;
while flag do
begin
read(c);
If ord(c)=13 then
flag:=false
else b[bn]:=c;
inc(bn);
end;
{/Intro}
writeln(a);
writeln(b);
readln;
end.
А как писать правильно? Как организовать ввод, если неизвестно кол-во символов?