Блок-схема чтения матрицы из файла

[koks_ikk]

Мне преподаватель сказал, что не правильная блок-схема. Помогите, как она должна выглядеть?

assign(f, 'matrix.txt');
Write('Какую матрицу найти?: ');
ReadLn(name);
t := name + ' = ';
Reset(f);
s := '';
while not EoF(f) and (Copy(s + ' ', 1, Length(t)) <> t) do //' ' D =
ReadLn(f, s);
if not EoF(f) then
for var i: byte := 1 to n do
begin
for var j: byte := 1 to m do
begin
Read(f, matrixD[i, j]);
write(matrixD[i, j]:12:5);
end;
writeln();
end
else
WriteLn('Матрица ', name, ' не обнаружена');
close(f);

[min@y™]

вот схема на 5+.
дояпаццо не к чему.

21-08-48.png

[koks_ikk]

норм рофл

[leonglaz]

Сообщение от min@y™

вот схема на 5+.
дояпаццо не к чему.

Вложение 92959

Дружок, я в 4 утра ради твоего фото зарегистрировался на этом форуме, а когда открыл, заплакал.

[macomics]

Лучше бы спал в это время, а не беспокоил людей, которым уже 4,5 года не до этого.

[digitalis]

Это нормально, новички любят некропосты поднимать. Рекорд был, насколько помню, 11+ лет