A. перечислите три компонента, которые должны иметь совместимые формфакторы.

на египетскую - иероглифы.

чтение из файла обычно пишется readln(f,s) где f имя файловой переменной так что скорей всего нужно вставить

readln(input,s); s: =s+' '; f: =0; for i: = 1 to length(s) do beginif s[i]< > ' ' then r: =r+s[i]; if s[i]=' ' then begin k: =k+1; d[k]: =r; r: =''; end; end; readln(input,n); for i: = 1 to n do beginreadln(input,sait[i]); readln(input,tegs[i]); readln(input,pop[i]);

соответственно и запись в файл write(f,s)

файл в паскале должен иметь расширение конечно же а)

const alphabet="яабвгдеёжзийклмнопрстуфхцчшщъыьэюя"; var filename: stringprocedure readfile(filename: string); var f: text; s: string; i,k: integer; begin      assign(f,filename);       reset(f);       while not eof (f) do begin { пока не конец файла }            readln (f, s);             for i: = 1 to length(s) do begin              k: =pos(s[i], alphabet);                   if k=1 then k=length(alphabet); {это приколы изза я}                   if k> 1 then s[i]: =alphabet[k-1];         end;             writeln(s);       end;       close(f); end; begin      read(filename);       readfile;       readln; end.