Galvenās programmas sagatave
program MYLab3;
uses MYLAB3U,crt;
label beigas,rep;
var
InputString: STRData;a:char;
begin rep: clrscr;
writeln('Ievadi analizeejamo rindu');
readln(InputString);
Writeln(' Analizejam rindu');
writeln(InputString);
pienemt(InputString);
writeln('Atkartot? y/n');
readln(a);
if a='y' then goto rep;
end.…