Одномерный символьный массив., Описать символьный массив длиной 80 символов. Массив просмотреть до т Опции

[arcan]

Помогите пожалуйста.Описать символьный массив длиной 80 символов.
Массив просмотреть до точки, если она есть, или до последнего введеного символа. Выдать слово максимальной длины.
Вот у меня есть код программ.

Код

program pr;
var
  maxlen, maxpos, lastsp, curlen, i, n: Integer;
  str: String;
begin
  WriteLn('Vveidite stroku : ');
  ReadLn(str);
  n := Length(str);
  maxlen := 0;
  lastSp := 0;
  curlen := 0;
  for i:=1 to n do begin
    if str[i] = ' ' or str[i] = '.'  then begin
      if curlen > maxlen then begin
        maxlen := curlen;
        maxpos := lastsp + 1;
      end;
      curlen := 0;
      lastsp := i;  
    else
      Inc(curlen);
   end;
   if str[i] = '.' then Break;
  end;
if maxlen > 0 then
    WriteLn('Stroka s max.dlinoj = ', Copy(str, maxpos, maxlen))
  else
    WriteLn('Indjuk, ti vvel pustuju stroku');
  ReadLn;
end.

Поправте его, чтобы было связано с массивами.А то со стрингом, лабу не примет((

Сообщение отредактировано: arcan - 26.11.2006 17:39