Помощь по pascal

здрасти....может кто подсказать в коде малость не могу допереть мне надо что я сам вписывал текст с клавы а не рандом это делал

program lab5;
const n=10;
var sm:array [1..n] of char;
    s,s1:string;
    i,j:integer;

    begin
s1:='.';
for i:=1 to n do
repeat
  sm i:=chr(random(255));
until sm i in [' ','A'..'Z','a'..'z'];
writeln('Text: ');
writeln(sm);
s:=sm;

for i:=length(sm) downto 1 do
begin
if (sm i = UpCase(sm i))
then insert(s1,s,i);
end;
writeln;
writeln('Obrabotanniy text: ');
writeln(s);
readln;
end.

Вроде тут надо исправлять

   begin
s1:='.';
for i:=1 to n do
repeat
  sm i:=chr(random(255));
until sm i in [' ','A'..'Z','a'..'z'];
writeln('Text: ');
writeln(sm);
s:=sm;

на индекес без ковычек можно не обращять внимание .....

Отредактировано (08.11.2012 00:43:27, 11 лет 5 месяцев назад)